home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 210 / 210.d81 / mole lvlmaker (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  582b  |  17 lines
  1. 5 lv$="22":ls$="@0:"+lv$
  2. 8 dv=peek(186):ifdv<8thendv=8
  3. 20 sys57812"lml",dv:poke780,0:poke781,0:poke782,192:sys65493
  4. 30 poke53280,.:poke53281,.
  5. 40 print"[147]":fori=1to11:print"00000000000000000000":next
  6. 50 print"[155](0-blank, 1-wall, 2-ext, 3-bug)"
  7. 60 print"goto100:rem save'lev"lv$"'"
  8. 70 print"[154]goto200:rem load'lv"lv$"'"
  9. 80 print"goto300:rem save'lv"lv$"'"
  10. 88 print""
  11. 90 end
  12. 100 sys49152:open9,dv,1,"0:lev"+lv$:print#9,chr$(0);chr$(41);
  13. 110 fori=52224to52452:print#9,chr$(peek(i));:next:close9:end
  14. 200 sys57812lv$,peek(186),1:poke780,0:sys65493:end
  15. 300 sys57812ls$,peek(186):poke193,0:poke194,4:poke174,242:poke175,7:sys62954:end
  16. 10000 d=peek(186):n$="mole lvlmaker":open15,d,15,"s0:"+n$:close15:saven$,d:end
  17.